Profile of (eval 362)[Sub/Quote.pm:3]

Filename	(eval 362)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 77 statements in 489µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
29	4	2	112µs	159µs	JSON::Schema::Modern::::_json_decoder JSON::Schema::Modern::_json_decoder
1	1	1	16µs	43µs	JSON::Schema::Modern::::BEGIN@7.222 JSON::Schema::Modern::BEGIN@7.222
1	1	1	12µs	23µs	Method::Generate::Accessor::_Generated::BEGIN@24.224
1	1	1	7µs	7µs	Method::Generate::Accessor::_Generated::BEGIN@12.223

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	3µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	0s			my $default_for__5fjson_5fdecoder = ${$_[1]->{"\$default_for__5fjson_5fdecoder"}};
4	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
5	1	1µs			my $isa_check_for__5fjson_5fdecoder = ${$_[1]->{"\$isa_check_for__5fjson_5fdecoder"}};
6					package JSON::Schema::Modern;
7	2	65µs	2	70µs	# spent 43µs (16+27) within JSON::Schema::Modern::BEGIN@7.222 which was called: # once (16µs+27µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 43µs making 1 call to JSON::Schema::Modern::BEGIN@7.222 # spent 27µs making 1 call to warnings::unimport
8					# spent 159µs (112+47) within JSON::Schema::Modern::_json_decoder which was called 29 times, avg 5µs/call: # 8 times (32µs+0s) by JSON::Schema::Modern::_get_or_load_resource at line 812 of JSON/Schema/Modern.pm, avg 4µs/call # 8 times (4µs+0s) by List::Util::first at line 174 of JSON/Schema/Modern.pm, avg 500ns/call # 7 times (26µs+0s) by JSON::Schema::Modern::add_schema at line 170 of JSON/Schema/Modern.pm, avg 4µs/call # 6 times (50µs+47µs) by JSON::Schema::Modern::Document::OpenAPI::_add_vocab_and_default_schemas at line 204 of JSON/Schema/Modern/Document/OpenAPI.pm, avg 16µs/call sub _json_decoder {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 7µs within Method::Generate::Accessor::_Generated::BEGIN@12.223 which was called: # once (7µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 1762;
14	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	5µs			%^H = (
16					);
17	1	53µs	1	7µs	} # spent 7µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.223
18					# END quote_sub PRELUDE
19	29	15µs			Carp::croak("_json_decoder is a read-only accessor") if @_ > 1;
20					exists $_[0]->{"_json_decoder"} ?
21					$_[0]->{"_json_decoder"}
22	29	115µs			: do {
23	1	2µs	1	45µs	my $value = $default_for__5fjson_5fdecoder->($_[0]); # spent 45µs making 1 call to JSON::Schema::Modern::__ANON__[JSON/Schema/Modern.pm:896]
24	5	219µs	5	36µs	# spent 23µs (12+11) within Method::Generate::Accessor::_Generated::BEGIN@24.224 which was called: # once (12µs+11µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; (( Scalar::Util::blessed($value) and not grep(!$value->can($_), qw/encode decode/) )) or Type::Tiny::_failed_check($isa_check_for__5fjson_5fdecoder, "HasMethods[\"encode\",\"decode\"]", $value, "attribute_name","_json_decoder","attribute_step","isa check","mgaca","0","varname","\$self->{\"_json_decoder\"}"); $value }; # spent 23µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.224 # spent 11µs making 1 call to warnings::unimport # spent 1µs making 1 call to Scalar::Util::blessed # spent 1µs making 2 calls to UNIVERSAL::can, avg 500ns/call
25	1	0s			$_[0]->{"_json_decoder"} = $value
26					}
27					}
28	1	2µs			$$_UNQUOTED = \&_json_decoder;
29					}
30	1	7µs			1;
31
32					;